home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / MOBI5002.SRP < prev    next >
Encoding:
Text File  |  1996-06-05  |  2.6 KB  |  152 lines
  1. rem Copyright (c) PhoneLink plc 
  2. rem Communicate Data Card Using Cellnet Link (12/9/95)
  3.  
  4. label InitDevice
  5. echo off
  6. echo script[56]
  7. send    "at&fs35=0char(13)" 
  8. timeout 3,modem_fail
  9. find    "OK"
  10. label OffToGate 
  11. rem Offline to Gate (also contains Pad to Gate)
  12. echo off
  13. echo script[52]..
  14. send    "atdt46551char(13)"
  15. timeout 30,connect_fail
  16. finderr 0,BUSY,busy
  17. finderr 103,NO DIALTONE,connect_fail
  18. finderr 0,NO CARRIER,no_carrier
  19. find    "CONNECT"
  20. mwait  500    
  21. send    "char(13)"
  22. timeout 10,pad_fail
  23. rem timeout 25,pad_fail
  24. rem finderr 0,BUSY,busy
  25. rem finderr 103,NO DIALTONE,connect_fail
  26. rem finderr 0,NO CARRIER,no_carrier
  27. find    "PAD>"
  28. label PadToGate
  29. echo off
  30. echo script[53]
  31. send    "call {NUA}char(13)"
  32. timeout 3,nua_bad1
  33. finderr 0,COM,nua_good
  34. find    "ZZZ"
  35. label nua_bad1
  36. echo script[58]
  37. send    "call {NUA}char(13)"
  38. timeout 3,nua_bad2
  39. finderr 0,COM,nua_good
  40. find    "ZZZ"
  41. label nua_bad2
  42. echo script[58]
  43. send    "call {NUA}char(13)"
  44. timeout 3,nua_fail
  45. finderr 0,CLR,cleared
  46. finderr 0,UNAVAILABLE,nua_fail
  47. find    "COM"
  48. label nua_good
  49. echo script[54].
  50. end
  51.  
  52. label GateToPad
  53. echo off
  54. echo script[92]
  55. send    "char(16)"
  56. timeout 10,ctrl_p_fail
  57. finderr 0,PAD>,waiting
  58. find    "*"
  59. send "CLRchar(13)"
  60. timeout 10,clear_fail
  61. find "CLR"
  62. label waiting
  63. echo script[91].
  64. end
  65.  
  66. label GateToOff
  67. rem Gate to Offline (also contains Pad to Offline)
  68. echo off
  69. echo script[92]
  70. send    "char(16)"
  71. timeout 10,ctrl_p_fail
  72. finderr 0,PAD>,PadToOff
  73. find    "*"
  74. send "CLRchar(13)"
  75. timeout 10,clear_fail
  76. find "CLR"
  77. label PadToOff
  78. echo off 
  79. send    "+++"
  80. timeout 5,command_mode_fail
  81. find    "OK"
  82. send    "at{TermModemStr}char(13)"
  83. timeout 5,hang_up_fail
  84. find    "OK"
  85. echo script[99].
  86. end
  87.  
  88. label modem_offline
  89. echo script[92]
  90. send "char(16)"
  91. timeout 5,clear
  92. find "*"
  93. label clear
  94. send    "CLRchar(13)"
  95. timeout 5,command_mode
  96. find    "CLR"
  97. label command_mode
  98. send    "+++"
  99. timeout 5,hang_up
  100. find    "OK"
  101. label hang_up
  102. send    "at{TermModemStr}char(13)"
  103. timeout 5,hang_fail
  104. find    "OK"
  105. echo script[99]
  106. label hang_fail
  107. abort
  108.  
  109. label modem_fail
  110. echo Check data card.
  111. goto modem_offline
  112.  
  113. label connect_fail
  114. echo script[1]
  115. goto hang_up
  116.  
  117. label busy
  118. echo script[2]
  119. goto hang_up
  120.  
  121. label no_carrier
  122. echo script[3]
  123. goto hang_up
  124.  
  125. label pad_fail
  126. echo script[4]
  127. goto command_mode
  128.  
  129. label nua_fail
  130. echo script[22]
  131. goto command_mode
  132.  
  133. label cleared
  134. echo script[21]
  135. goto command_mode
  136.  
  137. label ctrl_p_fail
  138. echo script[12]
  139. goto modem_offline
  140.  
  141. label clear_fail
  142. echo script[13]
  143. goto clear
  144.  
  145. label command_mode_fail
  146. echo script[15]
  147. goto command_mode
  148.  
  149. label hang_up_fail
  150. echo script[17]
  151. abort
  152.